unit tantero;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, subcontrObra, Provider, SqlExpr, ppCtrls, ppBands, ppVar,
  ppPrnabl, ppClass, ppCache, ppProd, ppReport, ppDB, ppComm, ppRelatv,
  ppDBPipe, DB, DBClient, DBLocal, DBLocalS, Buttons, StdCtrls, Grids,
  DBGrids, RXDBCtrl, Mask, ToolEdit, DBCtrls;

type
  TfrmTantero = class(TfrmSubcontrObra)
    procedure btnExcelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTantero: TfrmTantero;

implementation

uses Recursos;

{$R *.dfm}

procedure TfrmTantero.btnExcelClick(Sender: TObject);
begin
  abrirEnExcel(self, self.cds, nil, nil, 'PAGOS A TANTEROS POR OBRA', 'INTERVALO DEFINIDO: del '
  +DateTimeToStr(self.edtFechaIni.Date)+' al '+DateTimeToStr(self.edtFechaFin.Date));
end;

end.
